home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / MCGADEMO.BAS < prev    next >
BASIC Source File  |  1991-03-18  |  2KB  |  70 lines
  1. IF CARDTYPE > 7 GOTO "ILLEGAL"
  2. IF CARDTYPE < 4 GOTO "ILLEGAL"
  3.  
  4. MODE23
  5. COORDINATE WINDOW
  6.  
  7. FORY=0TO255STEP16
  8.    :COLOR,,Y
  9.    :FORX=0TO319:XX=X/20+Y
  10.                :COLORXX
  11.                :PLOTX,0TOX,199
  12.    :NEXTX
  13.    :PRINT@(12,12)"..press a key...";
  14.    :DO:UNTILINKEY$<>""
  15. NEXTY
  16.  
  17. COLOR127:BOXFILL0,0TO319,199
  18. "R"
  19. FORX=0TO255:
  20.   COLORX:PRINT@(16,12)" COLORS ";
  21.   IF INKEY$<>""THEN END=256
  22. NEXTX
  23. GOTO"R"
  24.  
  25. "ILLEGAL"
  26. PRINT "You need a VGA or MCGA video card to do this demo"
  27. PRINT : PRINT "Any key to exit", CARDTYPE
  28. "KEYCHECK"
  29.   IF INKEY$<>""END=256
  30. GOTO "KEYCHECK"
  31.  
  32. '  PALETTE COMMAND:
  33. '
  34. '  CGA: NOT USED, USE COLOR STATEMENT.
  35. '
  36. '  EGA: PALETTE X,Y   where X=0-16 FOR PALETTE REGISTER
  37. '  (MODE 16,17,19)    where Y= __rgbRGB       , where RGB STRONG RED/GREEN/BLUE
  38. '                             (76543210 bits) , where rgb SUBTLE  "    "    "
  39. '                                             , where _ IS NOT USED
  40. '
  41. '  EGA: (as above)    where Y= ___IV___       , where V=VIDEO ON/OFF
  42. '  (MODE 18)                  (76543210 bits) , where I=INTENSE ON OFF
  43. '                                             , where _ IS NOT USED
  44. '
  45. '  VGA :MODES 21+22: YOU CAN DO PALETTES (LIKE EGA)
  46. '                       --- AND/OR ---
  47. '                    YOU CAN DO DAC PROGRAMMING (LIKE MODE 23)
  48. '
  49. '  MCGA: MODE 23: NO PALETTE PROGRAMMING, ONLY DAC PROGRAMMING
  50. '                 FOR 2^18 SHADES OF COLORS (256k colors, 256 at a time)
  51. '
  52. '  HOW TO DAC PROGRAM:
  53. '  1. THERE ARE 256 DAC REGISTERS.  THE COLOR FOR A DOT SELECTS A DAC REGISTER.
  54. '  2. A DAC REGISTER CONSISTS OF 0-63 LEVEL(shade) OF RED,GREEN, AND BLUE
  55. '  3. A TWO STEP PROCESS TO PROGRAM DAC REGISTER
  56. '  4. USE COLOR STATEMENT: COLOR 14,25,53   14/64 LEVEL RED ----|
  57. '     (this is an example step 1)           25/64 LEVEL GREEN --|RESULT COLOR
  58. '                                           53/64 LEVEL BLUE----|
  59. '  5. USE PALETTE STMT: PALETTE n,-1   where n is the DAC register
  60. '     (this is an example step 2)      and use -1 for second parameter
  61. '
  62. '
  63. '
  64. '   CHANGE OF TOPIC:
  65. '
  66. '   MODE 23 CHARACTER BACKGROUND COLOR WILL ALWAYS BE 0(DAC#0=BLACK DEFAULT)
  67. '   UNLESS YOU CHANGE DAC#0 TO A DIFFERENT COLOR.
  68. '
  69. '   MODE 23 FIRST 16 COLORS (0..15) ARE THE SAME AS CGA/EGA/VGA COLORS.
  70.